From 10443ce59d401c5f3d655720ce09b963c3bfb471 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Mon, 7 Jun 2004 18:25:46 +0000 Subject: [PATCH] (dired-undo): Call `dired-build-subdir-alist'. Limit scope of `buffer-read-only' binding. --- lisp/dired.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index 589e1fa0489..acf5174170f 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1448,14 +1448,13 @@ Keybindings: (defun dired-undo () "Undo in a dired buffer. This doesn't recover lost files, it just undoes changes in the buffer itself. -You can use it to recover marks, killed lines or subdirs. -In the latter case, you have to do \\[dired-build-subdir-alist] to -parse the buffer again." +You can use it to recover marks, killed lines or subdirs." (interactive) (let (buffer-read-only) - (undo) - (message "Change in Dired buffer undone. -Actual changes in files cannot be undone by Emacs."))) + (undo)) + (dired-build-subdir-alist) + (message "Change in Dired buffer undone. +Actual changes in files cannot be undone by Emacs.")) (defun dired-next-line (arg) "Move down lines then position at filename. -- 2.30.2